home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbnets1a / shellwai.bas < prev   
BASIC Source File  |  1999-10-07  |  2KB  |  71 lines
  1. Attribute VB_Name = "ShellWait"
  2. Option Explicit
  3.  
  4. Public Const INFINITE = -1&
  5. Public Const NORMAL_PRIORITY_CLASS = &H20&
  6. Public Const STARTF_FORCEOFFFEEDBACK = &H80
  7. Public Const STARTF_FORCEONFEEDBACK = &H40
  8. Public Const STARTF_RUNFULLSCREEN = &H20 ' ignored For non-x86 platforms
  9. Public Const STARTF_USECOUNTCHARS = &H8
  10. Public Const STARTF_USEFILLATTRIBUTE = &H10
  11. Public Const STARTF_USEPOSITION = &H4
  12. Public Const STARTF_USESHOWWINDOW = &H1
  13. Public Const STARTF_USESIZE = &H2
  14. Public Const STARTF_USESTDHANDLES = &H100
  15. Public Const SW_ERASE = &H4
  16. Public Const SW_HIDE = 0
  17. Public Const SW_INVALIDATE = &H2
  18. Public Const SW_MAX = 10
  19. Public Const SW_MAXIMIZE = 3
  20. Public Const SW_MINIMIZE = 6
  21. Public Const SW_NORMAL = 1
  22. Public Const SW_OTHERUNZOOM = 4
  23. Public Const SW_OTHERZOOM = 2
  24. Public Const SW_PARENTCLOSING = 1
  25. Public Const SW_PARENTOPENING = 3
  26. Public Const SW_RESTORE = 9
  27. Public Const SW_SCROLLCHILDREN = &H1
  28. Public Const SW_SHOW = 5
  29. Public Const SW_SHOWDEFAULT = 10
  30. Public Const SW_SHOWMAXIMIZED = 3
  31. Public Const SW_SHOWMINIMIZED = 2
  32. Public Const SW_SHOWMINNOACTIVE = 7
  33. Public Const SW_SHOWNA = 8
  34. Public Const SW_SHOWNOACTIVATE = 4
  35. Public Const SW_SHOWNORMAL = 1
  36.  
  37. Type STARTUPINFO
  38.     cb As Long
  39.     lpReserved As String
  40.     lpDesktop As String
  41.     lpTitle As String
  42.     dwX As Long
  43.     dwY As Long
  44.     dwXSize As Long
  45.     dwYSize As Long
  46.     dwXCountChars As Long
  47.     dwYCountChars As Long
  48.     dwFillAttribute As Long
  49.     dwFlags As Long
  50.     wShowWindow As Integer
  51.     cbReserved2 As Integer
  52.     lpReserved2 As Long
  53.     hStdInput As Long
  54.     hStdOutput As Long
  55.     hStdError As Long
  56. End Type
  57.  
  58.  
  59. Type PROCESS_INFORMATION
  60.     hProcess As Long
  61.     hThread As Long
  62.     dwProcessID As Long
  63.     dwThreadID As Long
  64. End Type
  65.  
  66.  
  67. Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
  68. Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
  69. Declare Sub CloseHandle Lib "kernel32" (ByVal hObject As Long)
  70.  
  71.